<%@ Language=VBScript%> <% dim sStr,SlNo, Festival, Cntr 'Kerala Hit counter '-------------------------------------------- SERVER.EXECUTE("keralaHitStats.asp") '-------------------------------------------- SlNo = Request("PktSlno") ToursName = Request("ToursName") sStr="" Openconnection MyConn Set rsPackTours = Server.CreateObject ("ADODB.Recordset") '----- Create a query definition -------- sStr="" sStr = "SELECT * From PackageTours Where PktSlno = " & SlNo & " And PktToursName Like'%" & ToursName &"%' " 'Response.Write sStr 'Response.End rsPackTours.Open sStr, MyConn, adOpenStatic , adLockOptimistic %> <%=Title & " " & ToursName %>
 
<%if not rsPackTours.eof then %>
  <%=rsPackTours.Fields("PktName")%>
align="center" border="0">
<%=rsPackTours.Fields("PktDetails")%>
<%ELSE%>
Details Not Found Please Try Again...
<%End If%>